home *** CD-ROM | disk | FTP | other *** search
/ DigitalVision: Spaced Out / DigitalVision: Spaced Out - Disc 1.iso / pc / data / images.dxr / Internal_1_main.ls < prev    next >
Encoding:
Text File  |  2001-10-22  |  2.5 KB  |  58 lines
  1. global gCDList, gArtistList, gSection, gSaveStateList
  2.  
  3. on prepareMovie
  4.   castLib("CDImages").fileName = swapChar(the pathname & "casts/tn.cst", "/", getPathDelim())
  5.   baRegister("digitalvision", 3766816)
  6.   imageResultList = utilsConvertToImageList(member("image_codes").text)
  7.   okFlag = 1
  8.   repeat with imgcode in imageResultList
  9.     memberNumber = member(imgcode).number
  10.     if memberNumber < 1 then
  11.       okFlag = 0
  12.       exit repeat
  13.     end if
  14.   end repeat
  15.   if okFlag then
  16.     if gCDList = VOID then
  17.       gCDList = [:]
  18.       gArtistList = [:]
  19.       cdCode = "999"
  20.       cdTitle = member("CD_title_enter").text
  21.       imageResultList = utilsConvertToImageList(member("image_codes").text)
  22.       defaultImageCode = VOID
  23.       member("catalogue_title").text = member("catalogue_enter").text
  24.       gSection = VOID
  25.       cdsearch = [#cdCode: VOID, #CDname: VOID, #imageCode: VOID, #currentPage: VOID, #imageResultList: VOID]
  26.       imageSearch = [#cdCode: cdCode, #CDname: cdTitle, #imageCode: defaultImageCode, #ghostimagecode: defaultImageCode, #imageResultList: imageResultList]
  27.       keywordsearch = [#cdCode: VOID, #CDname: VOID, #imageCode: VOID, #currentPage: VOID, #keyword: VOID, #keywordCDImageList: VOID]
  28.       yourimages = [#cdCode: VOID, #CDname: VOID, #imageCode: VOID, #currentPage: VOID, #yourimagesCDImageList: VOID]
  29.       isolatedlayers = [#cdCode: VOID, #CDname: VOID, #imageCode: VOID, #currentPage: VOID, #isolatedCDImageList: VOID]
  30.       builduplayers = [#cdCode: VOID, #CDname: VOID, #imageCode: VOID, #currentPage: VOID, #buildupCDImageList: VOID]
  31.       singleimages = [#cdCode: cdCode, #CDname: cdTitle, #imageCode: defaultImageCode, #ghostimagecode: defaultImageCode, #imageResultList: VOID]
  32.       gSaveStateList = [#imageSearch: imageSearch, #singleimages: singleimages, #yourimages: yourimages]
  33.       oldDelimiter = the itemDelimiter
  34.       the itemDelimiter = "|"
  35.       gCDList[symbol("999")] = member("CD_title_enter").text
  36.       gArtistList[symbol("999")] = member("artist_enter").text
  37.       the itemDelimiter = oldDelimiter
  38.     end if
  39.   else
  40.     alert("The Import Utility failed to import all the images required.")
  41.     halt()
  42.   end if
  43. end
  44.  
  45. on startMovie
  46.   localJumpToImageSearch()
  47.   pass()
  48. end
  49.  
  50. on stopMovie
  51.   member("zoomed image").fileName = swapChar(getRootPath() & "images/_blank.jpg", "/", getPathDelim())
  52.   member("cd description").text = EMPTY
  53.   member("yourimages error message").text = EMPTY
  54.   member("error message").text = EMPTY
  55.   member("imagesearch entry").text = EMPTY
  56.   member("imagesearchghost entry").text = EMPTY
  57. end
  58.